home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
tex
/
meta27
/
mfpandor.lzh
/
ttchar.mf
< prev
next >
Wrap
Text File
|
1990-11-16
|
2KB
|
77 lines
%*****************************************************************************
% Copyright (c) 1989 by N. N. Billawala
%*****************************************************************************
% ttchar.mf characters for typewriter text set
% 5 characters
iff OK "x": "Up arrow";
beginchar(oct"013",num_width_c#+c_mono#,cap#,0);
pickup mathpen rotated -oblique;
top z1=(.5w,h)//; bot z2=(.5w,-d)//;
arrow.t(z1,w,.2h);
draw z1--z2;
adjust(.5num_fit_c#+m_a*c_mfit#,.5num_fit_c#+m_a*c_mfit#);
show_character; endchar;
iff OK "x": "Down arrow";
beginchar(oct"014",num_width_c#+c_mono#,cap#,0);
pickup mathpen rotated -oblique;
top z1=(.5w,h)//; bot z2=(.5w,-d)//;
arrow.b(z2,w,.2h);
draw z1--z2;
adjust(.5num_fit_c#+m_a*c_mfit#,.5num_fit_c#+m_a*c_mfit#);
show_character; endchar;
iff OK "x": "Single non-directional quote";
beginchar(oct"015",I_w*width#+a_mono#,cap#,0);
save_num(head)=accent_dot_diameter; save_bool(prime)=true;
top z1=(round(.5w),.75[xheight,cap]-.5head)//;
ref1=comma(z1,head,min(.6xheight,1.5pt),accent_thin_end,.5);
p1=ref1 rotatedaround (z1,-oblique);
showpoints(1);
adjust(v_a*fitbasis.lc#+m_a*a_mfit#,v_a*fitbasis.lc#+m_a*a_mfit#);
show_character; endchar;
% rotation and slant of position with obliqueness
iff OK "x": "Blank space character";
beginchar(oct"040",.5width#+mono#,math_axis#,descender#);
save_num(edge_distance)=max(1,round(.1w));
pickup pensquare scaled blank_space_thickness rotated -oblique;
top lft z1=(edge_distance,.3h)//;
bot lft z2=(edge_distance,-.5d)//;
bot rt z3=(w-edge_distance,-.5d)//;
top rt z4=(w-edge_distance,.3h)//;
draw z1--z2--z3--z4;
adjust (0,0); show_character; endchar;
% use different pen for softness
% no slant of shape with obliqueness
iff OK "x": "Double non-directional quotes";
beginchar(oct"042",accent_w*width#+b_mono#,cap#,0);
save_num(head)=accent_dot_diameter; save_bool(prime)=true;
top z1=(round(.5head),.75[xheight,cap]-.5head)//;
top z2=(round(w-.5head),y1)//;
ref1=comma(z1,head,min(.6xheight,1.5pt),accent_thin_end,0);
ref2=comma(z2,head,min(.6xheight,1.5pt),accent_thin_end,0);
p1=ref1 rotatedaround (z1,-oblique);
p2=ref2 rotatedaround (z2,-oblique);
showpoints(1,2);
adjust(v_a*fitbasis.lc#+m_a*b_mfit#,v_a*fitbasis.lc#+m_a*b_mfit#);
show_character; endchar;